home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Include / Prefs / PrinterTxt.i < prev    next >
Text File  |  1997-05-06  |  3KB  |  79 lines
  1.    {   File format for text printer preferences }
  2.  
  3. {$I "Include:Libraries/IffParse.i"}
  4.  
  5. const
  6.  ID_PTXT = 1347704916;
  7.  ID_PUNT = 1347767892;
  8.  
  9.  
  10.  DRIVERNAMESIZE = 30;               { Filename size     }
  11.  DEVICENAMESIZE = 32;               { .device name size }
  12.  
  13. Type
  14.  PrinterTxtPrefs = Record
  15.     pt_Reserved     : Array[0..3] of Integer;               { System reserved            }
  16.     pt_Driver       : Array[0..DRIVERNAMESIZE-1] of Char;   { printer driver filename    }
  17.     pt_Port         : Byte;                                 { printer port connection    }
  18.  
  19.     pt_PaperType,
  20.     pt_PaperSize,
  21.     pt_PaperLength,               { Paper length in # of lines }
  22.  
  23.     pt_Pitch,
  24.     pt_Spacing,
  25.     pt_LeftMargin,                { Left margin                }
  26.     pt_RightMargin,               { Right margin       }
  27.     pt_Quality      : WORD;
  28.  end;
  29.  PrinterTxtPrefsPtr = ^PrinterTxtPrefs;
  30.  
  31. const
  32. { constants for PrinterTxtPrefs.pt_Port }
  33.  PP_PARALLEL = 0;
  34.  PP_SERIAL   = 1;
  35.  
  36. { constants for PrinterTxtPrefs.pt_PaperType }
  37.  PT_FANFOLD  = 0;
  38.  PT_SINGLE   = 1;
  39.  
  40. { constants for PrinterTxtPrefs.pt_PaperSize }
  41.  PS_US_LETTER   = 0 ;
  42.  PS_US_LEGAL    = 1 ;
  43.  PS_N_TRACTOR   = 2 ;
  44.  PS_W_TRACTOR   = 3 ;
  45.  PS_CUSTOM      = 4 ;
  46.  PS_EURO_A0     = 5 ;              { European size A0: 841 x 1189 }
  47.  PS_EURO_A1     = 6 ;              { European size A1: 594 x 841  }
  48.  PS_EURO_A2     = 7 ;              { European size A2: 420 x 594  }
  49.  PS_EURO_A3     = 8 ;              { European size A3: 297 x 420  }
  50.  PS_EURO_A4     = 9 ;              { European size A4: 210 x 297  }
  51.  PS_EURO_A5     = 10;              { European size A5: 148 x 210  }
  52.  PS_EURO_A6     = 11;              { European size A6: 105 x 148  }
  53.  PS_EURO_A7     = 12;              { European size A7: 74 x 105   }
  54.  PS_EURO_A8     = 13;              { European size A8: 52 x 74    }
  55.  
  56. { constants for PrinterTxtPrefs.pt_PrintPitch }
  57.  PP_PICA  = 0;
  58.  PP_ELITE = 1;
  59.  PP_FINE  = 2;
  60.  
  61. { constants for PrinterTxtPrefs.pt_PrintSpacing }
  62.  PS_SIX_LPI   = 0;
  63.  PS_EIGHT_LPI = 1;
  64.  
  65. { constants for PrinterTxtPrefs.pt_PrintQuality }
  66.  PQ_DRAFT  = 0;
  67.  PQ_LETTER = 1;
  68.  
  69. Type
  70.  PrinterUnitPrefs = Record
  71.     pu_Reserved         : Array[0..3] of Integer;              { System reserved              }
  72.     pu_UnitNum,                                                { Unit number for OpenDevice() }
  73.     pu_OpenDeviceFlags  : Integer;                             { Flags for OpenDevice()       }
  74.     pu_DeviceName       : Array[0..DEVICENAMESIZE-1] of Char;  { Name for OpenDevice()        }
  75.  end;
  76.  PrinterUnitPrefsPtr = ^PrinterUnitPrefs;
  77.  
  78.  
  79.